home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 096 / unws.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  652 b   |  21 lines
  1. 10  'This program converts a Wordstar file to a standard text file
  2. 20  'that can be transmitted using 7 data bits. Wordstar uses 8-bit
  3. 30  'characters to produce soft spaces and soft hyphens.
  4. 40  'Modified from Personal Computer Age program by Larry Jordan
  5. 50  '
  6. 100  DEFINT A:CLS:KEY OFF
  7. 110  LOCATE 13,25:INPUT "Wordstar file to convert - ";IFN$
  8. 120  LOCATE 15,25:INPUT "Converted file name - ";OFN$
  9. 130  OPEN IFN$ FOR INPUT AS #1
  10. 140  OPEN OFN$ FOR OUTPUT AS #2
  11. 150  CLS:LOCATE 13,25:PRINT "Working on character - ";
  12. 160  WHILE NOT EOF(1)
  13. 170  <UNK! {0009}>A1=ASC(INPUT$(1,1))
  14. 180  <UNK! {0009}>IF A1<127 THEN 210
  15. 190  <UNK! {0009}>  LOCATE 13,48:PRINT CHR$(A1)
  16. 200  <UNK! {0009}>  A1=A1-128
  17. 210  <UNK! {0009}>A$=CHR$(A1):PRINT #2,A$;
  18. 220  <UNK! {0009}>IF A1=26 THEN 999
  19. 230  WEND
  20. 999  CLOSE:CLS:KEY ON:LOCATE 13,30:PRINT "Done....":BEEP
  21.